5 CD$="":V=54272:FORI=0TO28:POKEV+I,0:NEXT 6 BL$=" ":POKEV+24,15 20 PRINTCHR$(8):POKE53281,1:PRINTCHR$(142)"[147][144]WHY GAMBLE.......":POKE53280,5:PRINT" [213][195][195][195][195][195][195][195][201]":PRINT" [194]2 [194]":PRINT" [213][195][195][195][195][177][195][195][201][211][144] [194]":PRINT" [194]3 [194] [194]":PRINT" [194] [211][144] [194] [194]" 45 PRINT" [194] [194] [194]":PRINT" [194] [194] [194]":PRINT" [194] [211][144] [194] [194]":PRINT" [194] [194][211][144] [194]":PRINT" [194] [194] 2[194]":PRINT" [194] [211][144] [171][195][195][195][195][203]":PRINT" [194] 3[194]":PRINT" [202][195][195][195][195][195][195][195][203]" 53 A$="[194][214][214][214][214][214][214][214][194]":B$="[213][195][195][195][195][195][195][195][201]":C$="[202][195][195][195][195][195][195][195][203]":F=900:GOSUB2030:FORI=1TO9:FORJ=1TOI:PRINTLEFT$(CD$,J)TAB(25)A$:NEXT:PRINTLEFT$(CD$,J)TAB(25)C$:NEXT:PRINT""TAB(25)B$:FORI=1TO9:PRINTTAB(25)A$:NEXT:PRINTTAB(25)C$:FORI=1TO7:PRINTLEFT$(CD$,I)TAB(25)" ":PRINTTAB(25)B$ 80 FORJ=1TO9:PRINTTAB(25)A$:NEXT:PRINTTAB(25)C$:NEXT:F=1000:GOSUB2030:PRINTLEFT$(CD$,8):PRINTTAB(26)"A ":PRINTLEFT$(CD$,9):FORI=2TO8:PRINTTAB(26)" ":NEXT:PRINTTAB(26)" A":PRINTLEFT$(CD$,13)TAB(29)"[211][144]":PRINT" WHEN YOU KNOW YOU ARE ON A WINNER" 95 PRINT" WITH A COMMODORE COMPUTER !":F=3000:GOSUB2030:POKE53281,0:POKE53280,8:PRINT"[147]"CHR$(14):P$="[198]ROM THE PEOPLE WHO BROUGHT YOU THE":GOSUB2040:P$="[195]OMMODORE [208][197][212] AND THE [214][201][195] 20 HOME":GOSUB2040 115 P$="COMPUTER, COMES A WHOLE NEW":GOSUB2040:P$="DIMENSION IN PERSONAL":GOSUB2040:P$="COMPUTING POWER.":GOSUB2040:F=3000:GOSUB2030:PRINT"[147]"CHR$(142);:POKE53280,7:POKE53281,5:POKEV+4,0:POKEV+1,1:POKEV+5,1:POKEV+6,240:POKEV+4,17:POKEV+5,1 132 FORI=1TO30:POKE646,I:PRINT"";:POKEV+1,I:PRINT"    [146]":PRINT"    [146]":PRINT"   [146]":PRINT"    [146]":PRINT"    [146]" 140 NEXT:POKEV+8,1:POKEV+12,1:POKEV+13,240:POKEV+11,33:FORI=1TO33:POKE646,I:PRINT"";:POKEV+8,30+I:POKEV+1,40-I:PRINT"[169] [223][169] [223][223][169][223][169][169] [223] [223][169] [223] [223] [146]":PRINT"    [223][169]  [223][169]          [146]" 152 PRINT"    [146][223][169]  [146][223][169]        [146][169] [146]":PRINT"              [146][223][223] [146]":PRINT"[223] [146][169][223] [146][169]    [146][223] [146][169] [146][169][223] [146][169]   [146]":NEXT:POKEV+15,1:POKEV+19,1:POKEV+20,240:POKEV+18,17:POKEV+4,33 157 FORI=1TO18:POKE646,I:PRINT"":POKEV+15,I*2:POKEV+8,I*3:POKEV+1,80-I*4:PRINT" [169] [146][169][169] [146][169][169][146]":PRINT" [169] [146][169][169] [146][169][169] [146]":PRINT" [169] [146][169][169] [146][169]  [146]" 163 PRINT" [169] [146][169][169] [146][169]  [146]":PRINT" [169] [146][169][169] [146][169]  [146]":PRINT" [169] [146][169][169] [146][169]  [146]":PRINT" [169] [146][169][169] [146][169]":PRINT" [169] [146][169] [223] [223][146]  [146]" 168 PRINT" [169] [146][169] [223] [223][146]  [146]":PRINT"  [146]  [146]  [146]":PRINT"  [146]  [146]  [146]":PRINT" [223] [223][146] [169] [146][169]  [146]":PRINT" [223] [146][169]  [146]"; 173 NEXT:FORI=0TO20:POKEV+I,0:NEXT:F=1000:GOSUB2030:FORI=1TO50:POKE53281,16*RND(1):POKE53280,16*RND(1):NEXT:POKE53281,0:POKE53280,3:F=2000:GOSUB2030:PRINT"[147]"CHR$(14)"":P$="[212]HE [195]OMMODORE 64 HAS MANY BUILT IN":GOSUB2040:P$="FEATURES THAT ARE NOT FOUND ON OTHER":GOSUB2040 205 P$="COMPUTERS COSTING TWICE AS MUCH.":GOSUB2040:P$="[212]HIS IS ONE OF THE MAIN FACTORS THAT":GOSUB2040:P$="MAKES THE [195]OMMODORE 64 A COST EFFECTIVE":GOSUB2040:PRINT"[145][145][145]":P$="AND USEFUL TOOL TO THE BUSINESSMAN":GOSUB2040 225 P$="AND HOBBYIST ALIKE.":GOSUB2040:F=3000:GOSUB2030:PRINT"":P$="[204]ET US HAVE A LOOK AT A FEW BUSINESS":GOSUB2040:P$="APPLICATIONS TO WHICH THE 64 CAN BE PUT":GOSUB2040:F=2000:GOSUB2030:PRINT"[147]"CHR$(142) 250 A$="[159] WORD ":B$="[159] PROCESSING ":C$="[159] [146]":GOSUB2060:PRINT"[147][144]"CHR$(14):POKE53281,7:POKE53280,9:P$=" [193] WORD PROCESSOR IS PERHAPS THE":GOSUB2105:P$=" GREATEST TIME SAVER THAT CAN BE":GOSUB2105 265 P$=" INTRODUCED INTO ANY OFFICE.":GOSUB2105:F=1000:GOSUB2030 266 P$=" [194]ESIDES SAVING TIME, YOU WILL ALSO":GOSUB2105 267 P$=" SAVE A SMALL FORTUNE IN LIQUID":GOSUB2105 268 P$=" PAPER, BECAUSE OF THE EXTENSIVE":GOSUB2105 277 P$=" EDITING FACILITIES AVAILABLE TO YOU.":GOSUB2105:F=800:GOSUB2030:P$=" [198]OR EXAMPLE ..........":GOSUB2105:F=800:GOSUB2030:P$=" [205]ISTAK[157]^[145] CAN BE RECTIFIED AT THE":GOSUB2105:P$=" TOUCH OF A BUTTON.[145][145][145]":GOSUB2105 286 F=800:GOSUB2030:POKE1872,32:P$="[148][148]ES":GOSUB2105:F=1000:GOSUB2030:PRINT"[147]":P$=" [207]THER FACILITIES AVAILABLE ARE :-":GOSUB2105:P$=" * [211]EARCH AND [210]EPLACE":GOSUB2105:P$=" * [201]NSERTION AND [212]RANSFER":GOSUB2105 310 P$=" * [195]ENTERING AND [210]IGHT [193]LIGNMENT":GOSUB2105:P$=" * [205]AIL [205]ERGING":GOSUB2105:P$=" * [214]ARIABLE TEXT WIDTH":GOSUB2105:P$=" * [200]EADERS AND [198]OOTERS":GOSUB2105:P$=" * [196]OCUMENT PRINTING":GOSUB2105 330 P$=" * [198]ULL [211]CROLLING IN ANY DIRECTION":GOSUB2105:F=1000:GOSUB2030:P$=" [204]IKE THIS.....":GOSUB2105:GOSUB2140:FORI=1TO40:SYS4*4096:NEXT:PRINT"[147][197][193][211][217][160][211][195][210][201][208][212] IS THE WORD PROCESSOR":PRINT" FOR THE [195]OMMODORE 64, AND IS BEING" 360 PRINT" DEMONSTRATED AT THIS STORE.":F=4000:GOSUB2030:PRINT"[147]";:POKE53280,5 361 A$=" INFORMATION [146]":B$="PRESENTATION[146]":C$=" ":POKE 53281,0 362 PRINTCHR$(142):GOSUB2060:PRINTCHR$(14):PRINT"[147][158]" 363 P$="[201]MAGINE THAT YOU HAVE BEEN RUNNING":GOSUB 2040 380 P$="YOUR SMALL BUSINESS FOR THREE YEARS.":GOSUB2040:F=1500:GOSUB2030:PRINT:P$="[212]HERE WILL COME A TIME WHEN YOU WILL":GOSUB2040:P$="WISH TO CHECK ON ITS PROGRESS.":GOSUB2040:F=1500:GOSUB2030:PRINT 395 P$="[196]OES THE IDEA OF PORING OVER PAGES AND":GOSUB2040:P$="PAGES OF FIGURES APPEAL TO YOU ?":GOSUB2040:F=1500:GOSUB2030:PRINT:P$="[215]ELL WHY NOT LET THE [195]OMMODORE 64":GOSUB2040:P$="SHOW YOU YOUR PROGRESS IN A CLEAR":GOSUB2040 420 P$="CONCISE MANNER ?":GOSUB2040:F=3000:GOSUB2030:PRINT"[147][159]"CHR$(142):POKE53281,0:POKE53280,4:POKEV+5,0:POKEV+4,0:POKEV+6,0:TP$="[146][223] [223]":POKEV,20:POKEV+5,1:POKEV+6,240:POKEV+4,17:POKEV+2,240:FORI=1TO20:LU$=LU$+"[146] [165] [145][157][157][157]":TU$=TU$+"[167][145][157]":NEXT:TU$=" [145][157]"+TU$ 1050 DIMV1(12):FORI=12TO1STEP-1:READV1(I):V1(I)=V1(I)+2:NEXT:T=19:U=6:GOSUB2000:FORI=1TO12:V1(I)=V1(I)-2:NEXT:T=20:U=7:PRINT"":POKEV+4,33:GOSUB2000:FORI=1TO12:V1(I)=V1(I)-4:NEXT:T=21:U=8:PRINT"[158]":POKEV+4,65:GOSUB2000:FORI=1TO18:SL$=SL$+"[204][145][157]":NEXT 1090 PRINT""LEFT$(CD$,18)TAB(5)SL$:SL$="":FORI=1TO38:SL$=SL$+"[175]":NEXT:FORI=1TO10:READA,B,C,D:PRINTLEFT$(CD$,A)TAB(B)LEFT$(SL$,C);:IFD=1THENPRINT"[186]" 1120 NEXT:SL$="":FORI=1TO18:SL$=SL$+"[186][145][157]":NEXT:PRINTLEFT$(CD$,18)TAB(36)SL$:SL$="[146][223] [223][146]":FORI=1TO4:PRINTLEFT$(CD$,18+I)TAB(4+I)SL$;:NEXT:PRINT"[157] ":SL$=" [223]":FORI=1TO3:SL$=" "+SL$:PRINTLEFT$(CD$,18+I)TAB(35)""SL$"[146]":NEXT 1180 SL$=" PROFIT TIMES 100":PRINT"";:FORI=1TOLEN(SL$):PRINTMID$(SL$,I,1):NEXT 1181 PRINTLEFT$(CD$,3)TAB(2)"$30":PRINTLEFT$(CD$,8)TAB(2)"$20":PRINTLEFT$(CD$,13) 1182 PRINTTAB(2)"$10":PRINTLEFT$(CD$,18)TAB(2)" 0" 1183 P$="ISN'T THIS 'AT A A GLANCE' PRESENTATION FAR EASIER TO LOOK AT THAN" 1235 P$=P$+" REAMS AND REAMS OF PAPERS AND DOCUMENTS WITH NUMBERS ON THEM ? ":POKEV,20:POKEV+1,6:POKEV+5,4:POKEV+6,0:GOSUB2150:POKEV+4,0:F=3000:GOSUB2030 1245 PRINT"[147]":POKE53281,0:POKE53280,6:A$="[158] FINANCIAL ":B$="[158] PLANNING " 1250 C$="[158] [146]":GOSUB2060:F=1000:GOSUB2030 1251 PRINT"[147][144]":POKE53281,7:POKE53280,5 1255 P$="NOW THAT YOU HAVE A THRIVING BUSINESS":GOSUB2040 1260 P$="YOU ARE BOUND TO WANT IT KEPT THAT WAY.":GOSUB2040 1265 F=2000:GOSUB2030:P$="DON'T TRUST TO LUCK !":GOSUB2040 1266 PRINTTAB(14)" [164][164][164][164][164][164][164] 1267 [153][163]14)" (null) (null) (null) (null)FN 1268 PRINTTAB(14)" [206] [209] [209] [206][209][165] 1269 [153][163]14)"(null) (null) (null) (null) CLOSEFN 1271 PRINTTAB(14)"[207][183][183][183][183][183][208][209] [160][165] 1272 [153][163]14)"FN (null)THEN (null)FN 1273 PRINTTAB(14)"[165] [209] [167] [206] 1274 [153][163]14)"FN(null) THEN(null)(null) 1275 PRINTTAB(14)"[204][175][175][175][175][175][186][206]" 1280 PRINT:F=2000:GOSUB2030:P$="LET THE COMMODORE 64 TAKE CARE OF":GOSUB2040 1285 P$="YOUR FINANCIAL PROBLEMS FOR YOU.":GOSUB2040 1290 F=2000:GOSUB2030:PRINT"[147][144]"CHR$(14):POKE53281,1:POKE53280,2 1295 P$="[213]SING AN 'ELECTRONIC SPREADSHEET', YOU":GOSUB2165:PRINT 1300 P$="CAN SET THE DETAILS OF YOUR COMPANY":GOSUB2165:PRINT 1305 P$="UP IN THE MEMORY OF THE COMPUTER.":GOSUB2165:F=3000:GOSUB2030:PRINT 1310 P$="[212]HEN, AT A FEW KEYSTROKES, YOU CAN":GOSUB2165:PRINT 1315 P$="CHANGE ANY PARAMETERS YOU CARE TO AND":GOSUB2165:PRINT 1320 P$="SEE IMMEDIATELY WHAT EFFECT THIS CHANGE":GOSUB2165:PRINT 1325 P$="HAS MADE TO ANY ASSOCIATED AREAS.":GOSUB2165:F=4000:GOSUB2030:PRINT 1330 PRINT:P$="[212]HIS IS CALLED 'WHAT IF' ANALYSIS,":GOSUB2165:PRINT 1335 P$="AND IS PERHAPS THE MOST POWERFUL":GOSUB2165:PRINT 1340 P$="FINANCIAL PLANNING AID AVAILABLE TO":GOSUB2165:PRINT 1345 P$="THE BUSINESSMAN.":F=4000:GOSUB2165:GOSUB2030 1350 PRINT"[147]":P$="[212]HERE IS A FINANCIAL PLANNING":GOSUB2165:PRINT 1355 P$="PACKAGE FOR USE ON THE [195]OMMODORE 64":GOSUB2165:PRINT 1360 P$="WHICH WILL OFFER THIS FACILITY IN ":GOSUB2165:PRINT 1365 P$="ADDITION TO MANY MORE.":GOSUB2165:F=4000:GOSUB2030 1370 PRINT"[147]";:A$=" ":B$=" OTHERS ":C$=" " 1375 POKE53281,0:POKE53280,12:PRINTCHR$(142):GOSUB2060 1380 PRINT"[147]"CHR$(14)"[200]OW CAN THE 64 HELP ME ? ....":F=2000:GOSUB2030 1385 P$="[201]F YOU OWN A BUSINESS THEN THE 64 CAN":GOSUB2040 1390 P$="HELP YOU IN MANY WAYS. [193] FEW FURTHER":GOSUB2040 1395 P$="EXAMPLES OF BUSINESS APPLICATIONS":GOSUB2040 1400 P$="MAY CONVINCE YOU THAT A [195]OMMODORE 64":GOSUB2040 1405 P$="IS THE COMPUTER FOR YOU.":GOSUB2040:F=5000:GOSUB2030:PRINT"[147]" 1420 P$="[211]TOCK [195]ONTROL ":FF=2:GOSUB2180:P$="[208]AYROLL ":FF=4:GOSUB2180 1425 P$=" [211]PACE [201]NVADERS ":FF=6:GOSUB2180 1430 P$=" [215]HOOPS! ":FF=6:GOSUB2180 1435 P$="[196]ATA [194]ASE [205]ANAGEMENT ":FF=6:GOSUB2180 1440 P$="[195]OMPUTER [193]IDED [196]ESIGN ":FF=8:GOSUB2180 1445 P$="[195]REDIT [195]ONTROL ":FF=10:GOSUB2180:P$="[208]ERSONAL [196]IARY ":FF=12:GOSUB2180 1450 P$="[210]EPORT [215]RITING ":FF=14:GOSUB2180:P$="[211]PACE [201]NVADERS ":FF=16:GOSUB2180 1455 P$=" @@#????!! ":FF=16:GOSUB2180:P$="[193]ND ANYTHING YOU CARE TO NAME " 1460 FF=16:GOSUB2180:F=3000:GOSUB2030:PRINT"[147]":POKE53281,1:POKE53280,10 1465 PRINT"[144][198]OR FURTHER INFORMATION ON BUSINESS" 1466 PRINT"APPLICATIONS, PLEASE ASK ANY OF THE" 1467 PRINT"STAFF AT THIS STORE." 1468 PRINT"LOAD"CHR$(34)"BOOT2"CHR$(34)",8":POKE632,13 1469 PRINT"RUN":POKE633,13:POKE634,13:POKE635,13:POKE198,4:PRINT"[145][145][145][145][145][145][145][145][145][145]" 1470 NEW 2000 FORI=12TO1STEP-1:FORJ=1TOV1(I):POKEV+1,J*5:PRINTLEFT$(CD$,T)TAB(I*2+U)LEFT$(LU$,J*9)TP$:PRINTLEFT$(CD$,T)TAB(I*2+U-1)LEFT$(TU$,J*3+3):NEXT:NEXT:RETURN 2030 FORZZ=1TOF:NEXTZZ:RETURN 2040 LX=LEN(P$):IFLX/2<>INT(LX/2)THENP$=P$+" ":LX=LX+1 2041 POKEV+4,0:POKEV+5,12:POKEV+1,LEN(P$)/2:POKEV+15,LEN(P$)*4:POKEV+4,23 2045 FORIX=1TOLX/2:PRINTTAB(20-IX)MID$(P$,LX/2+1-IX,1)CHR$(145) 2046 PRINTTAB(19+IX)MID$(P$,LX/2+IX,1)CHR$(145):NEXT:PRINT:PRINT:RETURN 2060 PRINT" BUSINESS APPLICATIONS":PRINT:PRINT" [169] [146][169]":PRINT" [169] [146][169][152][169]":PRINT" [169] [146][169][152][169] [146]":PRINT" [169] [146][169][152][169] [146] ":PRINT" [153] FILE 64 [152][169] [146]" 2067 PRINT" [165] [167][152] [146]":PRINT" [204][175][175][175][175][175][175][175][175][175][175][186][152] [146]":PRINT" [165] [167][152] [146]":PRINT" [165] [167][152] [146]":PRINT" [165] [202][195][195][203] [167][152] [146]":PRINT" [204][175][175][175][175][175][175][175][175][175][175][186][152] [146]" 2073 PRINT" [180] [167][152] [146]":PRINT" [165] [167][152] [146]":PRINT" [165] [202][195][195][203] [167][152] [146]":PRINT" [204][175][175][175][175][175][175][175][175][175][175][186][152] [146]":PRINT" [165] [167][152] [146][169]":PRINT" [165] [167][152] [146][169]" 2079 PRINT" [165] [202][195][195][203] [167][152] [146][169]":PRINT" [204][175][175][175][175][175][175][175][175][175][175][186][152][169]":F=1000:GOSUB2030:PRINTLEFT$(CD$,15);:PRINT" [165][206] [167]":GOSUB2120:PRINT" [207][183][183][183][183][183][183][183][183][183][183][208][159][169]":PRINT" [165] [167] ":PRINT" [165] [202][195][195][203] [167] " 2087 PRINT" [204][175][175][175][175][175][175][175][175][175][175][186][206]":F=100:GOSUB2030:PRINTLEFT$(CD$,15);:PRINT" [165][206] [167]":PRINT" [206] [206]":PRINT" [207][183][183][183][183][183][183][183][183][183][183][208][159][169] ":PRINT" [165] [167] ":PRINT" [165] [202][195][195][203] [167] [206]":PRINT" [204][175][175][175][175][175][175][175][175][175][175][186][206][167]" 2096 F=500:GOSUB2030:PRINTLEFT$(CD$,16)TAB(6)A$:F=100:GOSUB2030:PRINTLEFT$(CD$,15)TAB(6)A$:PRINTTAB(6)B$:F=100:GOSUB2030:PRINTLEFT$(CD$,14)TAB(6)A$:PRINTTAB(6)B$:PRINTTAB(6)C$:GOSUB2130:F=2000:GOSUB2030:RETURN 2105 FORI=1TOLEN(P$):PRINTMID$(P$,I,1);:IFASC(MID$(P$,I))>45THEN2110 2107 F=8:GOSUB2030:NEXT:PRINT:RETURN 2110 POKEV,0:POKEV+1,0:POKEV+4,0:POKE54296,15:POKEV,10:POKEV+1,PEEK(V+27):POKEV+4,17:POKEV+5,4:GOTO2107 2120 POKEV+4,0:POKEV,1:POKEV+1,2:POKEV+5,153:POKEV+4,129:RETURN 2130 POKEV,0:POKEV+1,0:POKEV+4,0:POKE54296,15:POKEV,50:POKEV+1,10:POKEV+4,33:POKEV+5,140:POKEV+14,1:POKEV+15,1:POKEV+24,15+128:POKEV+18,17:FORKK=1TO200:POKEV+1,PEEK(V+27):POKEV+15,KK:NEXT:RETURN 2140 POKEV+4,0:POKEV+24,0:POKEV,0:POKEV+1,0:POKEV+5,0:POKEV+6,0:POKEV,25:POKEV+1,15:POKEV+5,184:POKEV+4,129:POKEV+24,15:RETURN 2150 FORR=1TO40:P$=" "+P$:NEXT:FORR=1TOLEN(P$):PRINTLEFT$(CD$,24)MID$(P$,R,40);:FORK=1TO40:NEXT:POKEV+4,0:POKEV+4,33:NEXT:RETURN:DATA16,15,13,10,8,7,14,10,8,7,6,5:DATA3,6,11,1,3,21,6,1,3,33,4,0,8,6,9,1,8,22,1,1,8,34,3,0,13,6,1,1 2165 IFLEN(P$)<40THENP$=P$+" ":GOTO2165 2166 POKEV+4,0:POKEV+5,2:POKEV+6,240:POKEV+4,17 2170 FORI=40TO1STEP-1:PRINTTAB(I)MID$(P$,1,40-I)"[145][145]":POKEV+1,I:NEXT 2175 POKEV+6,0:POKEV+4,0:RETURN 2180 FORI=39-LEN(P$)TO20-LEN(P$)/2STEP-1:PRINTLEFT$(CD$,23)SPC(I)P$" "; 2181 POKEV+4,0:POKEV+4,129:POKEV+1,I:NEXT 2185 FORI=23TOFFSTEP-1:PRINTLEFT$(CD$,I+1)TAB(20-LEN(P$)/2)LEFT$(BL$,LEN(P$)) 2190 PRINTLEFT$(CD$,I)TAB(20-LEN(P$)/2)P$:FORJ=1TO50:NEXT 2191 POKEV+4,0:POKEV+1,I:POKEV+4,129:POKE53280,I:NEXT:RETURN 5020 DATA13,35,2,0,18,6,1,1,18,35,2,0